(rmail-summary-next-msg): Skip deleted messages, where "D" is the

6th character.

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 539a17693861c23093b467eab0aa7140c4491b38..c029e6e22686c4b1dde0c236722742c4b1c87257 100644 (file)
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -535,7 +535,7 @@ messages, or backward if NUMBER is negative."
        (search (if (> number 0) 're-search-forward 're-search-backward))
        (non-del-msg-found nil))
     (while (and (> count 0) (setq non-del-msg-found
-                                 (or (funcall search "^....[^D]" nil t)
+                                 (or (funcall search "^.....[^D]" nil t)
                                      non-del-msg-found)))
       (setq count (1- count))))
   (beginning-of-line)